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Mia ht DECLARATIONS gE obe 92:49:98 TTDRVR.SRCJYFDRIVER.MAR:1 (1) v4 
00000000 44 176 -LONG 0 ; Indicates UCBSM_INT clear at interrupt 
48 177 PORT_VECTOR: 
4 178 
48 179 ; 
4 0; + DHU/DHV SPECIFIC DISPATCH TABLE 
48 1 3 SVECINI YF, YFSNULL 
80 1 $SVEC | STARTIO VFSSTARTIO : START NEW OUTPUT 
04C 184 SVEC SET tin NEY FSSET_LINE : SET NEW SPEED/PARITY 
054 185 SVEC DS SET vfs $DS_SET : SET OUTPUT MODEM SIGNALS 
058 1 : $VEC —-XON vF$x0 + SEND XON SEQUENC 
05 1 SVEC HOFF, VFBNO OFF + SEND XOFF SEQUENCE 
660 «188 SVEC STOP. YF stop : STOP OUTPUT 
064 189 SVEC ABORT, YFSABORT + ABORT OUTPUT IN PROGRESS 
$f 190 SVEC RESUME, YF SRESUME + RESUME STOPPED OUTPUT 
00 191 SVEC MAINT, YFSMAINT : INVOKE MAINTENANCE FUNCTION 
007¢ 198 $VEC —_ FORKRET, YFSFORK : PORT FORK CALLBACK 
0080 19 $VECEND 
0084 194 
0084 195; 
0084 196 YFSNULL: ; NULL PORT ROUTINE 
0S 0084 197 RSB 
0085 198 
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Mia ti REGISTER DEFINITIONS =-SEP-1984 07:48:48 YT TORVR. SREIVFDRIVER-MAR; 1 . (3) 
9 -SBTTL REGISTER DEFINITIONS 
: DHUCSR = ; Base CSR 
4 DHURBF = : pecetyes data fifo 
5 DHUTXC = ; DHV single char register 
§ DHUTCR = 3; DHU timer control 
DHULPR = 4 3; Line parameters 
8 DHUTXF = 6 : Transmit FIFO 
9 DHUTFS = 8 ; Transmit FIFO size 
DHUSTT = ; Modem status 
8 8 2 11 DHULCT = 8 3; Line control 
A 12 DHUTBF1 = 19 3; low bits of address 
000000C : 13 DHUTBF2 = 1 3; High bits of address 
0000000E 8 : 1 DHUTCT = 14 ; Byte count 
085 16; 
op 5 i$ 3; CSR BIT DEFINITIONS ( CSR ) ( READ/WRITE ) 
0085 18 ; (NOTE: THIS REGISTER MUST ONLY BE READ IN RESPONSE TO A TRANSMIT INTERRUPT. 
0085 19 ; TO LOAD AN INDIRECT REGISTER, ONLY WRITE OPERATIONS MAY BE USED. 
Hf 9 H READ-MODIFY-WRITE OPERATIONS MUST NEVER BE USED) 
0085 <IADDR,4,M>,- 3; INDIRECT REGISTER ADDRESS 
0085 4 <,1,>,° 3; DON'T USE THIS BIT 
0085 5 <CLEAR,1,M>,- | MASTER RESET 
0085 é <RCVINT,1,M>,~ : RECEIVER INTERRUPT ENABLE 
0085 7 <,1,>,° 3; DON'T USE THIS BIT 
0085 8 <LINE,4,M>,- 3 LINE NUMBER (0 = 15) 
0085 9 <DMAERR.1,M>,- : DMA error 
0085 0 <DIGFAL,1,M>,- ; Diagnostic failed 
0085 31 <SNDINT,1,M>,- 3; TRANSMIT INTERRUPT ENABLE 
0085 § <SNDRDY,1,M>=- ; TRANSMITTER READY 
Hae 
0085 5 ; RECEIVER BUFFER ( CSR+2 ) ( READ ONLY ) 
085 $3 <BUF ,8,M>,- 3 RECEIVER DAT 
085 9 <LINE ,4,M>, : LINE NUMBER (0 - 7) 
085 240 <PARERR,1,M>,- ; PARITY ERROR 
085 41 <FRAPER,1,M>,- ; FRAME ERROR 
0085 4g <OVERRUN,1,M>,- ; OVERRUN ERROR 
4 <VALID,1,M>- ; TATA VALI 
i 
6 28 3 LINE PARAMETER REGISTER ( CSR+4 , Indirect register) 
4 e 
50 1,>,° 3; DON'T ors THIS BIT 
51 <bIAG{.1.M>.-— : Diagnostics control 
26 <DIAG2,1,M>,- ; Diagnostics control 
5 <SIZE,2,M>,-  ; CHARACTER SIZE 
4 <PARITY.1,4>,- : PARITY EN 
: 5 <ODD,1,M>,- ; ODD PARIT 
é <STOP,1,M>,- | ; NUMBER STOP BITS 
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VOen Os REGISTER DEFINITIONS ety 7 82:48:08 YT ORVR. SRETY YFDRIVER.MAR; 1 oe (1) 
<RSPEED,4,M>,- ; RECEIVER b ANE SPEED 
CTSPEED 4A 5@ 3; TRANSMITTER LINE SPEED (BOTH RVC/TX FOR LINES 2-7) 


: : LINE CONTROL INDIRECT REGISTER (CSR + 8, Indirect register) 


SVIELD rt i 
<ABORT,1,M>,- ; cuseue oS abort 
<OAUTO,1,M>,- ; AUT 
<RCV,1,M>,- $ RECEIVER ENABLE 
<BREAK,1,M>,- +: SEND BREAK 
<IAUTO,1,M>,- 3; Incom ype. Auto flow enable 
<SNDOFF {.™ o~ ¢ Send 
<AINT .¢.8>,= : a eeaaenes 
<MODEM,1,M>,=- 3 Modem control Line 
<DTR,1,M>,=- ; Data terminal ready 
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; Request to send 
: Status ma te 
IELD DWyST STT,0,<- 

<tig, {.M>,- 

<DCD,1 “>. - 

ck, {, M>,- 

<é5h,{,0,- 
Constant value for Base CSR 
3; Enables both receive and transmit interrrupts 
aT Se = <DHUCSRSM_RCVINT! DHUCSRSM_SNDINT> 


; MACRO USED TO ACCESS INDIRECT REGISTERS 


00004040 


4 aes SETIND REG 


ROVE ucest CRB(R ; GET CRB ADDRESS 
c UnTDevECSL. IDB(RO) ,RO : GET CSR ADDRESS 


Br su3 atta 

a UCBSW_UNIT(RS) ,DHUCSR(RO); SELECT INDIRECT FIELD 
BISW3  #<DHUCSRSC_BASE>, 

heal icesw _UNIT(RS) ,DHUCSR(REG); SELECT INDIRECT FIELD 


-ENDM = SETIND 
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@]00 69.09 C9 0D 0d 9 G9 Cd 0d Gd GD Cd Cd 09 0d OD OD Gd Od Od Cd Od GD C9 Cd Cd Od Cd Cd G9 Gd Cd Co CD OD. 


Extra field in UCB 
: This. field A be removed if 2 spare bits can be found in the UCB f 
: soe yee of the port driver. (This would save 4 bytes from the As Ae y Length 
: 0 e 


——§—§ ~NQOOD9GDO9000 000000 OH OO O00 09 09 69 09 09 09 05 09 SII NSIS SNIP AAAAAAAOUTUN 
BNO ODONA NE WIN 9 OD NA UNE WIN OOD NAN EWN OS ODNAU EWN OUOS NAMES WOON) 
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yon 008 REGISTER DEFINITIONS Breer oBe Bei asic8 FANuR.eaecorbetvce.mar:1 2%? 8 
00000134 \% UCBS$B_DHUFLG = UCBSC_TT_LENGTH ; Allocate at end of previous ucb 
1 $VIELD UCB,0,<- 
1 <maP,{, 4 ~ i Ma real sters B gyi table if 1 
1 <DHU, DHU if 1 
<xOFF, (" aS, - 3 XOFF if 1,” XON if 0 
¢ OUTPUT DELAY MACRO 
? TO RELEASE THE UNIBUS 
5 ~ MACRO ee 
§ »REPEAT 
OP 
4 -ENDR 
: ~ENDM 
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; macro to generate table of acceptable speeds for DHU/DHV 
«MACRO orec ore S a 
-=yfSvms_ popecesss 


te dhus a8c ped? 
.tyf$dhu. “soeedseguppas dBc, ‘baud’ 


; speed values recognized by the DHU/DHV 
buuspose. BAUD aA =0 
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cere “BAUD ae “13 


Nitta “BAUD O=14 
HUSPDSC ~BAUD_38400=15 


VFSVn SPEEDS: initialize table of speed values 


DEER AS SENS UE UNS SENERR RAS Seon 


FAN [=O ODNA NEW 0 OD NA NEU 0 OD NAUNE UPD 
ee 


65 YFSVMS_SP 
6 REPEAT 16 
yt -1 ; Initial to illegal value 
$3 YFSDHU_ SPEEDS: 
eREPEAT 16 
7 BY AL 0 : Initial to zero 
‘Cc isooe 
ee 3 Now build up the table of acceptable speed values 
7 SPDCONV BAUD_75 
7 SPDCONV BAUD_110 
SPD BAU 4 
BAUD~ 


YEO 
v04 


Va 


"SrSEP=1984 04:49:08 ETTOAVA.SReSveDRiveR.man:t "9° {9 


«SBTTL CONTROLLER INITIALIZATION 


z7 
rae 
=O 
>> 
—_ 
a 
~= 
>cC 
—™ 
—o 
ort 
z< 


OWONA NEW" ODNOUS UM "Ot 


oe 

YFSDELIVER - Unit delivery routine 
FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS ENTERED AT SYSTEM STARTUP 


tt checks the device to see if ene peesst ves unit number exists. 
his is necessary as the DHV has nes, while the DHU has 16 


INPUTS: 


OWOOODOOOOOO 


R4 = ADDRESS OF THE CONTROLLER CSR 
RS = Unit number 


OUTPUTS: 


RO = 1 if unit exists 
= 0 if unit does not exist 


IMPLICIT INPUTS: 


EO Se Ge Se Ge Ge Se Se Ge Se Ge Se Se Se Se Se Se Sse Ge Se Se Se Se Se 


FSDELIVER:: 
CMPL > #16 
BGEQ ~6=-«+10 : exit if unit too Large 
MOV (R4),RO 3; Read base CSR 


BBS #DHUCSRSV_CLEAR.RO,10$ : controller bad 
BBS #DHUCSRSV~DIGFAL,RO,1 3; controller bad 


Note. If controller has not passed self test then we cannot rely on 
the value read from DHUSTT 
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MOVB DHUSTT(R4) ,RO 3; get status byte 
BLBS RO, : low bit indicates DHU 
CMPL R5,# ; DHV has only 8 Lines 
“ BGEG } ~=-:-108 
; MOVL #1,R0 3; unit exists 
‘an BRB 208 
: CLRL RO 3; unit does not exist 
20$: 
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*YFSINITIAL - INITIALIZE INTERFACE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED AT SYSTEM STARTUP AND POWER RECOVERY. 
INPUTS: 
R4 = ADDRESS OF THE UNIT CSR 
Ra 2 ADDRESS OF THE UNIT CRB 
OUTPUTS: 
R2 is destroyed. 
IMPLICIT INPUTS: 
IPL = IPL$_POWER 


46 YFSINITIAL:: ; INITIALIZE DHU UNIT 
: SET UP CONTROLLER 


CLASS_CTRL_INIT YFSDPT,PORT_VECTOR; RELOCATE THE NECESSARY TABLES 


3; Note. The DHV takes about 2 seconds to initialise 

3 and the DHU " to 

3 sO we assume that initialization has taken place 

3; We could start the initialization and then do a ‘skip self test’ 
3 operation to bring the self test time down to a few milliseconds, 
; however we would not then know if the board was good or not. 


BITW #DHUCSRSM_CLEAR, (R4) 

BNEQ 268 3; dont do reset if still there 
MOV #DHUCSRSM_CLEAR, (R4) ; CONTROLLER RESET 

WAIT TILL CONTROLLER INITIALIZATION IS COMPLETE 


5 second wait here !!! 
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TIMEWAIT #500000 , #DHUCSRSM_CLEAR,(R4),W,.FALSE. 

BLBC RO, YFSCTRL_ERROR 

BITW #DHUCSRSM_BIGFAL, (R4) 

BEQL $08 

MOV #0,R0 3: failed self test, dont use 
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YFORIVER - Port Driver for DHU/DHV 16-SEP-1984 02:26:48 VAX/VMS Macro v04- Pp 1 YFO 
VOee O08 CONTROLLER INITIALIZATION mt iat 9 82:46:48 TTDRVR.SRCJYFDRIVER.MAR; 1 race tf, v04 
22. «11 4 7 ont BRB YFSCTRL_ERROR 
64 4040 8F B0 "MOV «=: MDHUCSRSC_BASE, (R4) : set up base csr value 
1 
1 1008: 
08 as 46 BE 1 MOVB = #DT$_DHV CRBSB_TT_TYPE (RB) ; CONTROLLER IS DHV 
5 AG 1 p 4 MOVB  DHUSTT(R4),R : test for DHU or DHV 
D 50 1 BLBC 3; DHV does not have silo timeout 
02 AG 009000 "GF 144 6 MOVE  G*fTY$GB_SILOTIME,DHUTCR(R4) | ; INIT INPUT SILO TIMEOUT VALUE 
0B AB 47 BF 146 can MOVB #DT$_DHUTCRBS$B_TT_TYPE(RB) ; CONTROLLER IS DHU 
50 (01 B0 151 " MOVL = #SS$_NORMAL,RO 
4 RSB 
1 12 YFSCTRL_ERROR: 
05 01 1 RSB 
156 «514 
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R4,RS ARE PRESERVED. 
FSINITLINE:: 
50 FEEE CF ODE MOVAL “unl VEE RO : GET THE DISPATCH TABLE ADDRESS 
64 Aa5 10 As BISW ~ futesh “ONLINE ,UCBSW_STS(R5); SET ONLINE 
53 01 S54 a5 7 ASHL UCBSW_UNIT(RS),#1,R3 |; BUILD UNIT'S BIT MASK 
0106 ¢5 a 5 MOVW Hees CBSw TT _UNITBIT(RS) : SAVE IT 
OOF8 CS 00000000'GF 90 MOVB = G* aittt ye “PARITY, UCB$B_TT_PARITY(RS) 
STORE TERMINAL'S PARITY VALUE IN UCB ripe 


TYSM_ Pt _XOFAVL, = 


BlSW  #TTYSM_PC_DMAAVL!T 
5) “IN Port L 
) 
ri) 


24 Y FEATURE AVA F 
0122 ¢5 ey ~ DMA FEATURE AVAILABLE FO 
51 0114 C65 D 
08 B11 


UCB3W_TT_PRICTL 


' 
(R 
MOVL UCBSL_TT MET B) 


4 

5 Ri = ; ADDRESS CLASS VECTOR TABLE 
£ JSB acLASS_SETUP_UC 

0; 


{) =: INIT UCB FIELDS 
: Perform check to see if device is good 

PUSHR #*M< R4 AR 

MOVL ucast € : GET CRB ADDRESS 

c aaah. IDB(R4) ,R4 : GET CSR ADDRESS 


3; test this device is ok 


K 6 
river for DHU/DHV 16-SEP-1984 126:4 AX/VMS Macro v04-00 P 1 
TIALIZATION REE 1982 BE9Si28 PAASHNS Bacco NOt 00 any Page 13, 
1g .SBTTL UNIT INITIALIZATION 
18 ; YFSINITLINE = UNIT INITIALIZATION 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE PERFORMS A SIMPLE UNIT INITIALIZATION. 
4 : INPUTS: 
g: RS = UCB ADDRESS 
g ? ourpurs: 
0: 
13 
$y 
é 4 
a 
et 
41 
4 
4 
4 
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4 
4 
4 
ie 


MOVZWL UCBs ON 
JSB 


POPR #*AcR TRS 
BLBS RO,118" 


DHU is in a bad way, set device offline 

BICW #UCBSM_ONLINE ,UCBSW_STS(R5); SET OFFLINE 

; Test to see the type of configuration 
i UCBSB_DHUFLG(R5) 
B1SB euceee DHU, v B$B PHUFLECRS); ars DHU 
ave Baus TTTRO), 3 t if DHU or DHV 


: Note. The DHV a interrupts at BR4 
3 This becomes IPL on a 


0134 C5 = 9% 
0134 C5 
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YFDRIVER iver for DHU/DHV 16-SEP-1984 02:26:48 VAX/VMS Macro V04-00 Page 14 YEO 
Vou 000 IALIZATION $78 Pa} 986 83:95:08 YT TORVR. SREIVFDRIVER.MAR: 1 . m| v04 
AS 14 90 : MOVE #20, UCBSB_DIPL(RS) 
018 ea 02 Ba BICB #UCBSKDHO_UCBSB, DHUFLG(RS) ; Actually its a DHV 
12$: 
: Find out what kind of machine the device is connected to. 
3; This tells us what kind of mapping registers we have 
; CPUDISP <- 
YF_INITMAP,=- 3 11/7 
YF_INITMAP,= 3 11/7 
YF_INITMAP,= : 11/7 
YF_INITMAP,= 3 11/7 
YF _LINITNULL,= 3 unknown 
YF _INITNULL,=- 3 unknewn 
YF __NOMAP ,- 3; Seahorse 
YELINITMAP= : Mayflower 
3; Unknown presseser type 
YF _INITNULL: 
: propent DMA being used, because we do not understand how the adapter 
3 works. 


BICW  #TTYSM_PC_DMAAVL,-; SHOW DMA FEATURE NOT AVAILABLE FOR USE 
UCBSW_TT_PRTCTL(RSS ; IN PORT LEVEL 


BRB INIT_CONTINUE 
2 ereconsers have map registers for DMA operation 


BISB #UCBSM_MAP ,UCBSB_DHUFLG(R5) 
BRB INIT CONTINUE 


3; These processors do not have map registers 


04 
0122 C5 
07 


0134 cS 01 
00 


F_NOMAP: 
; No bits set 
INIT_CONTINUE: 


3SET MODE CODE NEEDS TO TOGGLE THESE BITS 


000009EB ‘EF JSB YFSSET_LINE ; INIT SPEED/PARITY 
; ENABLE LINE RECEIVER , TRANSMITTER AND MODEM INTERRUPTS 
23 64 AS 04 OPE ND #YCBSV_ONL INE .UCBSU_STS(R5) .208 ; TEST ONLINE 
OD A4 CLRB DHUTBF 2+1(R4) 3 pssume sransaitter should 
3 be 
08 AGO BISW #DHULCTSM_ABORT , DHULCT(R4) 3; assume abort to be set 


OF O12A CS 07 BBS #UCBSV_TT_DSBL,UCBSB_TT_MAINT(R5),20$ ; Test if disabled 
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ao 
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BISW #OHULCTSM_R EM,DHULCT(R4) ; enable receiver and modem 
BICW Ag ND bog AB ; clear abort bit 


08 A4 1 
MOVB #°X80,DHUTB i enable transmitter 


08 AS 0104 o 
OD AS = BO «BF 


MOVB DHUSTT(R4) ,RO 


; Unfortunately the Oey sony dont put the modem bits where we want them 
; To get the correct bits we have to move RI,DCD,CTS up one place, while not 
3 changing DSR. spare bits have to be ignored. 
ADOL shifts DSR out of bottom byte) 


; (this 
#*E<TTSM_DS_RING! TTSM_DS.CTS!TTSM_DS_CARRIER>,R 
RO,UCBSB-TT-DS_RCV(R5) = UPDATE CURRENT INPUT MODEM SIGNALS 
#DHUSTTSO DSR+T,RO,25$ 
#TTSV_DS_BSR,UCBS$B_TT_DS_RCV(RS) ,25$ 


; ASSUME INIT MODEM PROTOCOL 
; ADDRESS CLASS VECTOR TABLE 
: INVOKE TO INIT MODEM PROTOCOL 


#UCBSV_POWER S(R5),40$; DID WE DETECT A POWER FAIL 
UCBSL_TT_CLA ; GET THE CLASS VECTOR TABLE ADDRESS 
@CLASS_POWER ; AND GOTO THE POWERFAIL CODE 
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FSUNIT_ERROR: 
BI cw #UCBSM_ONLINE ,UCBSW_STS(R5) ; UNIT NOT ON LINE 
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MAINTENANCE ROUTINES 


+ 
YFSMAINT = MAINTENANCE FUNCTIONS 


Pe TON DESCRIPTION: 
THIS ROUTINE 


UCB ADDRESS 


AND 1) 


v04-00 
R.S YF DRIVER.MAR; 1 


PERFORMS MAINTENANCE FUNCTIONS FOR THE DHU 
(LOOPBACK IS GNLY ALLOWED ON LINES 


INPUTS: 


R5 = 
UCBSB. TT_MAINT = FUNCTION TO BE FERFORMED 


"o- R4 SCRATCH 


BITB 
BEQL 
MOVZWL 
BRB 
BITB 
BEQL 
MOVZWL 
SETIND 
MO 


BITB 


BEQL 
SETIND 


#10$M_LOOP 
ycBse- +f OMAINE CRS) 
a* 
10 


X02,R2 
$ 


#10$M_UNLOOP@-7 
ue B$B_TT “MAINT (RS) 


#7X00,.R2 

DHULCT(RO) ,R1 

Re. #DHULCTSY MAINT, #2,R1 

R1,DHULCT (ROY 

#1,RO 

RO 

#10SM_AUTXOF_ENA@ Te 
BSB-TT_MAIART(RS 

#TTYSM_PC_XOFAV 

UCBSW_TT_PRTC TL ths) 

#10$M_ AUTXOF D1IS@-7,- 
B$B-TT_MAIRT(R5) 

aTTYSM me XOFAVL,= 

UCBSW_TT_PRTCTL(AS) 


LOOPBACK FUNCTION 


NO 
SPECIFY LOOPBACK CODE 


RESET LOOPBACK FUNCTION 


NO 
SPECIFY UNLOOP CODE 


SET MAINT FIELD 
"p ate 
INDICATE SUCCESS 


;AUTOXON ENABLED 
; NO THEN MAYBE DISABLE 


; SET THE BIT AVAILABLE 
; AUTOXON disabled 
3 no then don't disable it 


; LINE OFF 
; NO 


YFORIVER - Port Driver for DHU/DHV 16-SEP-1984 :48 VAX/VMS Macro V04-00 Page 17 YFDI 
youn O08 MAINTENANCE ROUTINES g-SEP 1386 4 ‘46: ‘§ LT TORVR. SREIVFDRIVER.MAR: 1 ° (1) v04- 
08 AO 0104 BF AA 8 04 725 BICW #DHULCTSM_RCV!DHULCTSM eae Ne Eisele Receive and modem 
08 AO 01 AB O30A 7 $ BISW #DHULCTSM ABORT ,DHULCTTRO) ; current activity 
0D ag 94 0 7 CLRB DHUTBF 2+1TRO) fitte ransmit 
25.11 7 8 os BRB 40$ 
19 93 031 ; 6 BITB $#1O$M_LINE_ON@-7,- : LINE ON 
012A ¢ 1} es yCBsB_TT. MAINT (RS) 
me eae NEES SETIND oo 
08 AO 0104 BF AB 9 734 BISW § #DHULCTSM_RCV!DHULCTSM_MODEM,DHULCT(RO) ; Enable Receive and modem 
08 AO 01. AA F f 5 BICW  #DHULCTSM~ABORT,DHULCTTRO) 
0D AO 80 ef 90 ; ‘ move #°X80, DHUTBF 2+1 (RO) : Enable Transmit 
50 01 9A 737 40S: MOVZBL #1,R 
05 B 738 RSB 
033c © 739 
033¢ 740 
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ra ~SBTTL OUTPUT MODEM CONTROL 

; YF$DS_SET = SET OUTPUT MODEM SIGNALS 

¢ FUNCTIONAL DESCRIPTION: 

THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 
INPUTS: 


R2 = LOW BYTE = SIGNALS TC ACT 
HIGH BYTE= SIGNALS 70 DEA 


R5 = UCB ADDRESS 
OUTPUTS: 
: RO-R3 ARE USED. 
FSDS SET: 
; Check that the DHU/DHV modem control signals have the standard values 
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0125 cS 52 88 0 BISB R2,UCBSB_TT_DS_TX(R5) sel NEW OUTPUT SIGNALS 
F8 BF 78 oe) ASHL =8,R2,R ACCESS | SIGNALS TO RESET 
0125 cS 52. BA 0346 B1CB R2,UCB$B_TT_DS_TX(R5) : RESET THEM 
7E 0125 ¢5S  €ED 8&F 039A BICB3 Pritam tien pensteuiven Srendthes senee ¥t be. tact sca 
0361 ; The DHU/DHV is set to ae a pt 9 modem change events in the receive fifo 
Bae) 3 (Unless the Line is disa 
03 012A C5 O07 £0 0361 ; BBS #UCB$V_TT_DSBL,UCB$B MAINT(RS),10$ ; Test if disabled 
6— 01 88 0367 oe BISB  #<DHULCTSR_MODEM/25 es! (SP P) 
09 AO «8E 90 036A "  MOVB. = (SP) +, DHULCT#1(RO) ; OUTPUT NEW VALUE 
05 b3ee RSB 
O36F 
036F 
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YFSINTINP - DHU RECEIVER READY INTERRUPTS 
FUNCTIONAL DESCRIPTION: 


Ps) 
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THIS ROUTINE IS ENTERED ee A_CHARACTER IS AVAILABLE IN THE UNIT'S 
SILO, THE CH ae de IS EXTRACTED AND IS PASSED TO THE ASSOCIATED 
CLASS DRIVER. IF THE CLASS DRIVER RETURNS CHARACTERS(S) THEN NEW 
OUTPUT iT INITIATED (NORMALLY ECHO). 


INPUTS: 
QO(SP) = ADDRESS OF IDB 
IMPLICIT INPUTS: 
RO,R1,R2,R3,R4,R5 ARE SAVED ON STACK. 
OUTPUTS: 
THE INTERRUPT IS DISMISSED WHEN THE SILO IS EMPTY. 


VFSINTINP: : ; DHU/DHV INPUT INTERRUPTS 
; GET THE CSR ADDRESS 
MOVL @(SP)+,R4 
PUSHL R 
MOVL (R4) ,RO 


: GET THE CHARACTER FROM THE INTERFACE 


Sete Ge Ete Ge Se Ge Se Ge Se Se Ge Se Ge Se Ge Ge Se Ge Ge Se Se Se Sse SeSe 


GET THE IDB ADDRESS 
SAVE IDB ADDRESS 
GET THE CSR ADDRESS 
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53 02 a0 8B S$: MOVW DHURBF (RO) ,R3 ; Get the silo entry 
6D 1 BGEQ 45$ ; Silo empty (== BRW 100$) 
52 53 F8 or 7 ASHL #-8, R3, Rg 3; shift the Line number 
52 FFFFFFFO 8F CA BICL #*C<15>, R 3 use mask to obtain Line number 
ae | mes D MOVL BSL_UCBLST(R4)CR2],R5 3; GET THE UCB FOR THAT LINE 
3 1 BEQL 3; IF EQL THEN NOT THERE 
53 7000 8F B BITW #<DHURCVSM_PARERR>!- 


<DHURCV$M_OVERRUND | - 
<DHURCVSM_FRAMER> ,R3 ERRORS OR MODEM TRANSITION ? 
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55 12 ee BNEQ 50% :YES,PROCESS THEM 
53 53° «OA “  MOVZBLs-R3,R3 ; CLEAR THE HIGH BYTES OF CHARACTER 
0110 05 1 JSB @UCBSL_TT_PUTNXT(RS) ; BUFFER THE CHARACTER 
40 1 BLEQ ; NONE OR STRING OUTPUT 
TIMSET & #1,R1,LOCKOUTPUT : SET TIMEOUT AND INTERRUPT BIT 
09 0134 ¢5 cS 01 «CEO BBS an Duy UC B_DH FLGCRS) . 28$ 
02 Ad 000 4 a Bisus 000,R peta > DAV single char output 
28$: 
06 AO) (53 90 MOVB R3,DHUTXF (RO) 3; DHU fifo output 
54 6€ OD 30$: MOVL (5P),R4 : GET IDB ADDRESS 
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68 5 oc 1 
4 2 OE €1 
19 OD €0 
52 sd cs 0 
8 18 
D7. S11 
5E gs co 
50 —E 7D 
52 BE) SO 7D 
54 BE 7D 
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(7 53 «EB 
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BRB 25$ ; CONTINUE 


BEQL 30$ ; NO CHARACTER 
JSB hl tad ; START BURST 
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PROCESS PARITY, FRAME OVERRUN ERROR OR MODEM TRANSITION 


See Se Ge Sets LPs 


The 4g Peat modem transition by setting all the 
S 


error 
#DHURCVSV_PARERR,R3, 608 
BBC #DHURCV$V~ OVERRUN RS ,60s 


BBS #DHURCVSV=FRAMER,R3,200$; Modem transition if all set 


60$: 
MOVL UCBSL_TT_CLASS(R5),R2  ; GET CLASS DISPATCH 
JSB QCLASS_READERROR(R2) : SIGNAL ERROR 
27$ : CHRRACTER TO ECHO 
70$: 
BRB 30$ 
100$: ADDL #4,SP ; REMOVE IDB ADDRESS 
MOV (SP)+,RO > RESTORE REGISTERS 
MOVQ  (SP)+.R2 : 
MOVa (SP)+-R4 ; 


: Modem transition routine 


200$: 

; If lsb set then it is a self test code 

3; We currently sgnere self test codes, although these could be used 
: for error logging purposes 


BLBS R3,30$ 
: Unfortunately the DHU and DHV dont put the modem bits where we want them 


: To get the correct bits we have to move RI,DCD,CTS up one place, while not 
: changing DSR. spare bits have to be ignored 
ADDL i 


OOD SII SSID DD DDD DDD TTT EE 
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; (This shifts DSR out gf bottom byte) 
5 BICB  #C<TISM_DS_RING!TTSM_DS_CTS!TTS$M_DS_CARRIER>,R 
6 BBC #DHUSTTSO DSR+1,R3 g108 
aa BBSS #TT$V_DS_OSR,R3.210 

$ MOVB R3.UC $B_TT_DS_RCV(RS) ; UPDATE CURRENT INPUT MODEM SIGNALS 
0 MOVE RS, R : PASS CURRENT INPUT MODEM SIGNALS IN R2 
91 MOVZBL #MODEMSC_DATASET,R1 : TRANSITION TYPE IS DATASET 

3 PUSHL t SAVE CSR ADDRESS 

9 MOVL UCBSL_TT_CLASS(R5),R4 : GET CLASS DISPATCH 

94 JSB @CLASS_DS_TRAN(R4) : INVOKE TRANSITION ROUTINE 

9 POPL R : : RESTORE CSR ADDRESS 
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6 7 
vou 000" START _ fee SSEp19be 06:99:28 ETORUR. SRESTFORIVER MAR; 1 


. .SBTTL START 1/0 ROUTINE 
$ YFSSTARTIO = START 1/0 OPERATION ON DHU 
: ; FUNCTIONAL DESCRIPTION: 


! THIS ROUTINE IS ENTERED FROM THE DEVICE INDEPENDENT TERMINAL STARTIO 
; ROUTINE TO ENABLE OUTPUT INTERRUPTS ON AN IDLE DHU UNIT. 


INPUTS: 
: R3 = CHARACTER AND cc = PLus 
: ADDRESS AND € = NEGATIVE 
: RS = UCB ADDRESS 
; OUTPUTS: 
; RS = UCB ADDRESS 
: .ENABLE LSB 
YFSSTARTIO: : ; START 1/0 ON UNIT 

03 19 BLSS BURST _OUTPUT 

0068 «31 BRW $ 
BURST OUTPUT: 
$52 0120 ¢5 3¢ MOVZWL UCBSW "1 OUTLEN(RS) R2 ; GET LENGTH 
01 «E1 BBC #TTYS MAENA USE SILO IF DMA NOT ENABLED ON THIS LINE 
0c 0122 g ucesy TT. Tr pRIcTLChs). SILO. * ouTPuT 
00000000 ' GF B1 CMPW G*TTYSGW_DMASIZE | LARGE ENOUGH FOR DMA 
0 19 BLSS {0_ouT 
0088 = 31 10$: BRW DRA START ; YES SO DO DMA 
SILO_OUTPUT 
64 0134 C5 #UCBSV_DHU, case _DHUFLG(RS), 2008 ;_ DHV has single char output 
51 06 MOVZBL DHUTFSTRO) number of slots 
51 CMPW RZ, RI : purst (A GER THAN SILO? 


BLEQU 508 
MOVZBL R1,R2 


SLOTS AVAILABLE IS MAXIMUM 
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MOVL : BSL_TT_OUTADR(RS),R3 ; GET ADDRESS 
ADDL ,UCBSL-TT_OUTA DR«RS) : UPDATE POINTER 
SUBW UCBSW"TT“OUTLEN(R5) : AND COUNT 
BEQL : ALL DONE, NO NEED FOR BURST 
0 99 BISW #TTYSM_TANK BURST. : SIGNAL BURST ACTIVE 
a UCBSW_TT_HOCD(R 
08 9 "  BLBC ; EVEN TRANSFER 
06 AO MOVB Fetes wutxe cro) : OUTPUT ODD BYTE 
: DECL = t UPDATE COUNT 
F on BEGL 80% > DONE 
52 52 FF SF 78 ne ASHL #-1,R2,R2 ; CONVERT TO WORD COUNT 
06 a0 83 =«B0 ’ (R3) +, DHUTXF (RO) 


MOVW 
DELAY ; TO RELEASE THE UNIBUS 


me i 


CVV ITAOOOOOOOooowe > 
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fo 
TINE -SEP-1 TTDRVR.SRCJ YF DRIVER.MAR;1 
34 SOBGTR R2,75$ ; LOOP TILL DONE 
80S: RSB ; RETURN TO CALLER 
rer BEQL 100$ SKIP IF NONE 
SETIND ‘ 
: , BBS #UCBSV_DHU,UCBSB_DHUFLG(R5) ,95$ 
4 3 DHV single character output 
; BISW3 #*x8000,R3,DHUTXC(RO) 
§ ; BRE fone 
; ; DHU fifo output 
958: MOVB R3,DHUTXF (RO) 
re 1008: : 
1 ; RSB 
28 ; DHV ‘silo’ output, uses single character mode 
0 2008: 
1 MOVZBL eucesl TT OUTARR (85) RS 3; GET character 
§ INCL ucB T_OUTADR(RS) 3 Uroate POINTER 
DECW su" rT ~OUTLEN(RS) ; AND C T 
4 BEQL ; ALL DONE, NO NEED FOR BURST 
5 BISW #TTYSM_TANK B Uaet eo 3; SIGNAL BURST ACTIVE 
§ 2608: UCBSW_ TT MHOCD CR 
8 2 BI sus #°X8000,R3,DHUTXC(RO) =; output the character 
0 
991 
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DHU/DHV 16-SEP-1984 02:26:4 AX/VMS Macro V04-00 Pp 4 YFD 
§-§ P= 32 92:49:48 YT TORVR. SRE YFDRIVER.MAR; 1 TD v04 
i ~SBTTL PORT DMA ROUTINES 
; DMA_START - INITIATE DMA OUTPUT 


: FUNCTIONAL DESCRIPTION: 
T INPUT INTERRUPT, OUTPUT 
EW DMA OUTPUT 


L 
THe rAansPEN 18"0B TRAPS ARE AVAILABLE 
INPUTS: 
RS = UCB ADDRESS 
; OUTPUTS: 
RS = UCB ADDRESS 


RO PRESERVED 
R1,R2,R5,R4 DESTROYED 


START: 
BISW  #TTYSM_TANK 


DMA,- : SHOW DMA MODE ACTIVE 
uCBSu_TT_HOCD(R5) 
BBCC Y$0_TP_ABORT,- ; RESET ANY OLD ABORT REQUESTS 
UCBSB_TP_STAT(R5),3$ 
BiCw  #DHULCTSA_ABORT, BHULCT(RO) 
If there are no mapping registers for the device then don't allocate them 


: BBC #UCBSV_MAP, UCBSB_DHUFLG(RS) ,DMA_CONTINUE 
CHECK IF UNIT AAS PERMANENT MAP REGISTERS 


BBC #TTYSV_PC_P ; SKIP IF NOT AUTHORIZED FOR PERM MAPS 


RMMAP , - 
UCBSW_TT_PRICTL(AS) ,5$ 

BBS PC_MAPAVL,- ; SKIP FORK IF MAPS ALLOCATED ALREADY 

UCBSW_TT_PRTCTL(AS) ,DMA_CONT INUE 


BISB #TTYSM_TP_ALLOC,- ; SHOW ALLOC FORK ACTIVE 
UCBSB_TP_STAT(R5) 
GET CLASS VECTOR ADDRESS 
TO FIPL FOR MAP 


MOVL UCBSL_TT CLASS(R5) .R1 


JSB @CLASS_FORK(R1) ; FORK I 
; REGISTER ALLOCATI 
RSB ; RETURN CALLER W 
; “INT LEFT ON TO INTERLOCK 
; OUTPUT. FO ouT! 
; RESUME AT DMA_ALLOC. 
DMA_ALLOC: 


MOVZBL #2,R3 ; REQUEST 2 MAP REGISTERS 


Vetus" 


ef DHU/DHV 


"SSEp=198e BE:HiGS ETORVA.SReSteDRiven.man:t "9 3; 


‘ 
N 
00000000 ' GF 3 J$B G* 1OCSALOUBAMAPN ; 
8 1 SETIPL UCBSB DIPL(RS) : INTERLOCK TO DEVICE IPL 
1 F 4 Bisw A_PC_MAP AVL ~ : SHOW MAP ALLOCATED 
0122 § 1 ucesy TT PRICTL RS) 
4 § BICB SA_TP A ALL O¢ ; SHOW ALLOC FORK DONE 
0139 g § 1 UCBSBe 1? STA (RS) 
? BLBS : SUCCESS 
50 4 AS f 1 MOVL  UCBSL_CRB(RS) R09 GET CRB OF UNIT 
0 46 1 MOVL acre c. INtbevee Le 108¢R0S 4 GET CSR 
1 F 44 1 BICW RESET DMA MODE 
p C 48 1 jcose MTN Orb «RS? 
52. (01 f 4B 1064 MOVZWL UCBSW"TT “UTLEN(RS) »R2 i RESTORE OUTPUT LENGTH 
FFI6 ! 6g BRw SILO_OuTPU USE SILO FOR OUTPUT 
1 20S: 
50 24 AS 1 MOVL UCBSL_CRB(RS) ,RO GET CRB ADDRESS 
4 Ap 557 1 MOVL CRBSLINTD*VECSU_ MAPREG(RO) .~ 
012¢ ¢ 3 A f UCBSL-TP_MAP(R5) ~ ; SAVE MAP FIELD IN UCB 
55D (107 
H 1 ig DMA_CONTINUE : 
09 55D (1074 BBS #TTYS$V_TP_ABORT ; BRANCH IF DMA TO BE ABORTED 
OC 0130 ¢ 33 ie uCBSB_TP “STAT(RS), 2s 
53 gric C p 563 107 MOVL  UCBSL_TT_OUTADR(RS),R3_ ; vET ADDRESS OF NEXT STRING 
5 120 ¢ ¢ 568 1 2 MOVZ2WL UCBSW-TT"OUTLEN(R5).R2 : LENGTH OF OUTPUT 
12 056d 107 BNEQ = 4 : SKIP IF MORE TO DC 
0162 31 3 F 0 28: BRW DMA_DONE : BRANCH IF TRANSFER IS DONE 
50 DD 378 é , PUSHL RO ; SAVE INPUT VOLITAL REGISTER ‘CSR’ 
74 1084; 
ne 1085 ; If there are no mapping registers for the device then 
gfe : § 3 start dma directly 
03 0134 C5 00 g! oe 1 8 : BBC #UCBSV_MAP, UCBSB_DHUFLG(R5S) ,DMA_NOMAP 
0OAO «31 «+O57A 1 BRW DMA_MAP 


Kk 7 
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DMA_ NOMAP: 


pyec tet code to work with an unmapped DHU/DHV 
(I.e. Seahorse configuration) 


this code examines the DMA buffer to find the maximum physically 
contiguous area, and starts a DMA on that part. 


It Sceupes S et the buffer is in non-paged pool 
(l.e. s in system address space on that the PTE 


a 


will A 3 contain the PFN for the page) 
Find physical address of first page 


oe ae 
f 
i 
i 
i 


SN 


RNPrvcvovVlVTVTVTVTVTTCVTVTVTT"TC"OE 


r 
T 
1 
1 
1 
1 
1 
1 
11 
11 
11 
53. onie cs "i 
54 3. H 000005 bf i ear 3 et att OF BUFFER 
50 00000000' GF 11 OVL G-RAGSE sp SPTBASE ,RO : GETS SVAPTE OF BUFFER 
4 044 11 MOVAL ; INTO R 
53 FFFFFE 8F Hy i BICL @*C*XiFF, Re ; COMPUTE BYTE OFFSET IN PAGE 
ght 1 : calculate Length of DMA in this page 
51 00000200 8F 53 Al 1 F SUBL3 -R3,#512,R1 
sh9 1 ; See if this is longer than buffer 
0120 C5 H 1 REAP i} cree R1 ,UCBSW_TT_OUTLEN(RS5) 
‘ 3 
51 0120 e3 Be i 9 108 MOVW UCBSW_TT_OUTLEN(R5),R1 ; use actual buffer Length 
« + 
0120 C5 51 peep 1 Z, SU3W R1,UCBSW_TT_OUTLEN(R5) 
BA iF $3 : Get the PFN for the first page 
52 8 3BA 1 é , MOVL  (R4)+,R2 
¥ 
D5BD 11 8 : calculate physical address from PT 
Th44 i 1 3; (assuming that it fits into a 22-bit address) 
5 52 15 BD 11 EXTZV #0,#21,R2.R : get PFN onl 
3 88 Oe 88 ce 113 EASY ROLES ATS ERS ° , 
cf i : ; Loop through remaining pages to see if they are contiguous with this one 
C7 1136 208: 
0120 ¢5 C7 ‘+11 $ TSTW y BS0_1T OUTLEMCRS) 
; cB si 8 BEQL 3; No more DMA 
CD 11 INCL ® 3 get expected PTE 
52 64 15 CF 114 CMPZV) «=. #0, #21, (R4) ,R2 ; test nex aa 
4 D4 114 BNEQ § ; not cont iguou 
We TSTL (R4)+ 3 step to next PTE 
. Wee ; concatenate this page to previous DMA 
0200 8F 0120 3 D 1146 j CMPW YCBSU_TT_OUTLEN(RS) ,#512 
0 DF 114 BLEQ 3 partial page 


ye, 
vou=000" sere "SSEp=198e 82:99:68 EMbAVA.SRESFDRIVER.man:1 28° 7) 


ote RES 


ADDL 


£ 1g-R1 ; whole page gets added 
suee 5 i -UCBSW_TT_OUTLEN(RS) 


iogerttet page gets added, to complete the DMA 


ADDW UCBSW_TT_OUTLEN(R { R1 
CLRW UCBSW"TT"OUTLEN(RS) 


T8138 & 


ADOL R1,UCBSL_TT_OUTADR(R5) ; step to next DMA address 
POPL R : RES ORE CSR ADDRESS 
nov 


R 
: »DHUTCT(RO) ; load the count 
RS, DHUTBE 1 (ROD 


Xi ; e 
pise “* 16,86 a? SROTBF2¢RO) ; load high address and start 
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51 0800 €140 
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5 00990009 °fr 
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i 
N 
1170 ; 
1} ; Code to do mapped DMA transfers 
1173 BMA_MAP: 
11 4 CMPL = R2., #512 ; NEXT BURST TOO LONG FOR MAPS? 
113 cttruL #812.R2 Bee 
He : 
1138 5$: ADDL  R2,UCBSL_TT_OUTADR(RS) ; UPDATE CHARACTER POINTER FOR NEXT TIME 
1 0 SUBW R2,UCBSWTT“OUTLEN(R5) : UPDATE COUNT FOR NEXT TIME 
11 BBS wc BSV XOFF ,UCB$B_DHUFLG(R5) .6$ ; IF XOFF, DON'T SET TIMER 
11 TIMSET R2,R1,COCKOUTPUT sRECOMPUTE TIMEOUT VALUE FOR THIS 
i 4 ‘PORTION OF THE DMA BURST 
11 
11 ; ; R3 = STRING ADDRESS 
11 : : Re - LENGTH 
1191 6$: PUSHR #*M<R2,R5> 
1198 MOVL UCBSL_CRB(RS) RO : GET CRB ADDRESS 
119 MOVL  a@CRBSC_INTD+VECS$L_ADP(ROS,R1 | ; CONFIG REGISTER 
1194 EXTZV #VECSV“MAPREG,AVECSS_MAPREG, - 
1195 UCBSL_TP_MAP(R5) .RO : GET STARTING MAP REGISTER 
1196 MOVAL UBASL-MAP(R1)CROJ,R1  : GET 1ST MAP REGISTER ADDRESS 
1198 BICL3 #*X80000000,R3,R4 : CALC SVAPTE OF BUFFER 
1199 ASHL #=-9,R4,R + ISOLATE PAGE 
1 00 MOVL GoMAGSGL _SPTBASE.R5 : GETS SVAPTE OF BUFFER 
1201 MOVAL (RS5)CR4I7R4 : INTO R4 
08 ICL.  #*C*X1FF~R3 ; COMPUTE BYTE OFFSET IN PAGE 
1 04 : LOAD MAP REGISTERS 
1205 : RO = MAP REGISTER NUMBER 
1 ; ; R1 = ADDRESS OF FIRST MAP REGISTER 
1207 : R2 = BUFFER LENGTH 
1 8 : R3 = BYTE OFFSET IN PAGE 
1 09 R4 = SVAPTE OF BUFFER 
1 i MOVZBL #2,R2 
i 10$:  MOVL (R4)+,R5 : GET CONTENTS OF NEXT TE 
i 14 : THIS CODE ASSUMES THAT DMA IS FROM NONPAGED POOL 
1 16 INSV - #*X400,421,411,R5 : SET VALID BIT, DATA PATH 0 
121 MOVL RS. (R15¢ : LOAD INTO MAP REGISTER 
18 SOBGTR R2.10$ 
: POPR #*M<R2,R5> ; RESTORE LENGTH,WRITE BUFFER, UCB 
lee ; 
1 3 3; Note that th fot Loving code works with 22 bit Qbus addresses 
! : 3: As well as with 18 bit Unibus addresses 
1226 INSV —- RO, #9, #13 RB ; COMPUTE UNIBUS ADDRESS 
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YFDRIVER - Port Driver for DHU/DHV 16=-SEP=- cro V04-00 P 
VORnOO8 PORT DMA ROUTINES ety ea ek ReStrbRiver.mar:1 / 2% 43) 
AE 1227 SETIND 
EA Be } MOVW R2,DHUTCT(RO) 3; Load count 
AA 8 C MOVW R er ae 3; Load sce bits 
3 «06 Ef (5 1 EXTZV #16,46,R3,R3 : get h ion, 5 ts 
0C AO 53~—OBO er CA 1 BISBS #*x80,R3,HUTBF2(RO) : load high bits and initiate DMA 
0 8ED B09 1 POPL RO : RESTORE or sR ADDRESS 
0 D3 1 RSB + RETURN TO CALLER 
64 ! : ; FORK DISPATCHER, ISR, OR STARTIO 
D4 1 6 DMA_DONE : : DMA COMPLETION 
a. 
03 EO ry) 1 § BBS #TTYSV_PC_PRMM SKIP FORK IF MAPS PERMANENT 
2E 0122 ¢ 606 1240 UCB$W_TT PRICTLC (hS), DMA_ bost 
04 88 O6DA 1241 BISB © #TTYSA_TP DLLOC ; SHOW DEALLOC FORK ACTIVE 
0130 ¢5 60C 1 4¢ UCBSB_TP_STAT(RS) 
51 0114 €5 DO O6DF 124 MOVL UCBSL~TT“CLASS(R5),R1 =; GET CLASS VECTOR ADDRESS 
10 B1 616 06E4 1244 JSB @CLASS_FORK(R1) : SCHEDULE FORK TO FIPL FOR MAP 
6E7 1245 ; REGISTER SPEALLOCAT 
05 06E7 1 46 RSB : RETURN TO CALLER, FORK WILL RESUME 
oE8 4? ; AT DMA_DEALLOC 
EB 1249 DMA_DEALLOC: 
50 ange aS p 6E 30 HOVL UCBSL =FROCRS) 680 : GET CRB ADDRESS 
4 AO 6FO 1 3g RBSL— “INTDAVEC SU. -MAPRES(RO); RESTORE MAP FIELD IN CRB 
06 13 06F2 125 BEQL $ : SKIP IF 
00000000'GF 16 FA 34 JSB G* LOCSRELMAPREG : RELEASE MAP REGISTERS 
6FA 1 36 5$: SETIPL UCB$B_DIPL(RS) ; INTERLOCK TO DEVICE IPL 
10 AA O6FE 125 BICW  #TTYSM_PC_MAPAVL + SHOW MAP ALLOCATED 
0122 ¢ 706 1 38 Ucesi TT PRTC TLCAS) 
04 8A 0703 125 BICB Y$A_TP D : SHOW DEALLOC FORK DONE 
0130 ¢5 At 60 UCBSB. 1? STAT CRS) 
7 : 1 6¢ DMA_POST: 
01 8A 0708 126 BIC #TTYSM_TP_ABORT : RESET ABORT REQUEST 
0130 ¢5 ZOA 1264 UCase TP TP STAT (RS) 
1000 8F AA O70D 1265 BICW : RESET DMA MODE 
0108 C5 ay 66 UCBSY. 1" Mwacpen$) 
pis 68 : CALL GETNEXT TO CONTINUE PROCESSING 
3 03 BA 214 29 , BICB #UCBS, TIM: UCBSM_ INT,- ;CLEAR TIMEOUT AND INT EXPECTED 
010¢ D5) = 16 a8 1 t JSB aucesc TT_GETNXT(RS) : GET NEXT BURST 
FDIF = 31 ric 3 teens BRW YFSSTARTIO + AND PROCEED 
71F 1275 “SAVIPL : SAVE CURRENT IPL ON THE STACK 
0000075A" EF pF 07 ; 1 A: PUSHAL 208 ; BUILD RETURN ADDRESS ON STACK 
E1 0728 127 BBC #TTY$V_TP_ALLOC,- : SKIP IF NOT ALLOCATE FORK 
03 0130 C5 72a 1 8 UCB$B_TP_STA FERS). 10$ 
FOF! 31 , E 7 a BRW DMA_ACLOC ; RESUME AT ALLOCATE CODE THREAD 
02 —1 0731 1 —- See #TTY$V_TP_DLLOC,- ; CHECK FOR DEALLOCATE 
03 0130 ¢ 733 «1 g uce$B TP STA Hens). 20$ 
FFAE 31 0737 1 BRW DMA_DEALCOC 
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ENBINT ; RESTORE SAVED FORK IPL FROM STACK 
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or DHU/DHV 16-SEP-1984 26:4 AX/VMS Macro V04-00 P 1 
STOP ,RESUME , XON, XOFF iets 87:48:48 LTORVR. SREIVFORIVER.MARS1 oer 4) 
-SBTTL PORT ROUTINES STOP,RESUME,XON,XOFF 
YFSXOFF = SEND XOFF 
YF SEND XON 


vou=000" PORT. 
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R5 = UCB ADDRESS 


TT 
TT$ 
$XON - TT$ 
YFSSTOP = STOP OUTPUT TT$ 
; YFSABORT - ABORT CURRENT OUTPUT TT$ 
; YFSRESUME = RESUME STOPPED OUTPUT Vs 
: FUNCTIONAL DESCRIPTION: 11 
; THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO TT$ 
; CONTROL OUTPUT ON THE PORT Is 
INPUTS: i$ 
RS = UCB ADDRESS vW 
OUTPUTS: TT 
TT 
TT 
TT 
TT 
TT 
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SCHEDULE XOFF OR XON TO BE SEND 
INPUTS: 
R3 - CONTAINS THE CHARACTER TO SEND AS FLOW CONTROL. 
To send an XON we just clear the Force XOFF bit 
FSXON: 
Forget any stored ‘XOFF* character 
BIC #TTYSM_TANK_PREMPT,~ ; RESET XOFF STATE 
UCBSW_TT_HOCD(R5) 
: SETIND 
: Clearing this bit will make the device send an XON asap 
BICW SRA, CTA SMOOrE PIAA CT (RG 
R3,#*X11 . 


CMPB : Is it XOFF ? 
BNEQ YF $PREEMPT 


Pete «Ete Ge Ge Se Ge Be Ge Ge Ge Ss Ge Be Se Be Bs Se Sse Se Sse Sse Se Sets SsSsetseSsetsts 


MMNNINY 3 3 3 2 > 3 BQO O OOOO 000000.000000.0 
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we have to send a character here (other than normal XON/XOFF), 
so see if the device is idle 


FSPREEMPT: 


: 3; To send an XOFF we just set the Force XOFF bit, 
E YFSXOFF: 
= SETIND 
13 53 «91 D CMPBsaR3, #*X13 : Is it XOFF ? 
05 1 BNEQ  ‘F$PREEMPT : Not XOFF, have to do it the hard way 
08 a0) = 20 A BI Sw #DHULCTSM_SNDOFF ,DHULCT(RO) 
7 
7 
7 
7 
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; XOFFED, don't set timer 


SEP=1 
#UCBSV_INT Bees _STSRS) 08 ; Branch if active 
DH TBF 2+1 (RO) 
ET + Rt ,LOcKOUTPUT 
: DHV then we send the char by single character, 


#UCB$V ei enT 1+ | apaiatiaiaa 
Soe 000,R35,DHUTXT(RO) 


R3,DHUTXF (RO) 
90$ 


: Transmission is in progress, save the character till 


; the transmission completes 
#TTYSM_TANK_PREMPT,=- ; Set the flag 
ucesy TT_HOCD 

R3,UCB$B_TT_PREMPT(RS) ; Save the character 


SNS NN FO PPOPOPININY SS MON 9 


SNS NN NN 
DoOwwwwawwr> 


MIoc 
wuINn 


: STOP PORT OUTPUT 


RO 
DHUTBF 2+1(RO) 


ote. We dont reset UCBSM_INI for the DHU,DHV in case the 


evice finishes transmitting 
#UCBSM_XOFF ,UCBSB peyey gt : set to indicate xoff 


SNS 
yaa sehenied 4 4 4 b+ A LEYEERYRGRAAGAS BBB 4 | 


#UCBSM_TIM,UCBSW_STS(R 
#*M<ROS 


: ABORT ANY CURRENT PORT OUTPUT ACTIVITY 


——O 


oowul 


RR Vevrmrirrrrirrn 


RO 
#UCBSV_INT,UCBSW_STS(R5),15$ 
#TTYSM~TP_ABORT ,OCBSB_TP_STAT(RS) 


#DHULCTSM_ABORT , DHULCT (RO) 
#*M<RO> 


: RESUME PREVIOUSLY STOPPED PORT OUTPUT 


: 
| 
| 
: 
2 
| 


PARA AANM OD OE EEE RWS COCO DDN EE EEE RWI 


Coco O00 0908 SIN NS 
SOoOooooo 


; Reset timer 


vi 
3 
mee 
oO 
— 
zc 


ee aD at ee ed te td a tt = SS 3 2 8 ws ts 2 4 2) me 
ES ee ee ee et ee ee ee ee ee en ee ae ee oe 


WWII WINER ROPOPOPONONNUPN 2 4 9 OOOO 


4 oO 

Moro z2v 
=o 
co 


mmoowo 


Ww 
o 


—_ 
o 


wu> 


rPrw 
oon 


— 
oe 


SOOCCCOCOCSOOOCOCOCOOOOOGOOOCOOOOOOOOOOOo 
0.00.00 09 09 09 Gd Cd Cd Cd 09 CD Gd 0d Cd Od 09 GD C9 C000 Cd CD CD CD CO COOP CDCD CDCR 


DCO COA AMMUNITION) —§ $$ OOD 
PF DOGINFIMM OOOOOOOCOOOODWE ONIN NOOPF ONO -15 


= 
So 
ed 


. 


MEW 9 OONOA UE WIN = OOD NAME WO OONAUE 


Qowo-omec m 


UCB$W_TT_OUTLEN(RS) ,R1 


R1,R1,LOCKOUTPUT 
BURST _OUTPUT 
#°M<RO,R1,R2,R3> 


reset timeout for the DHU/DHV 


; We use the number of characters that the DHU has got left to send 
lus the number in the remainin 
ote that the byte gount may no 
; so we will over est 


#64,R 
DHUTCT(RO),R1 


UCB$W_TT_OUTLEN(RS) ,R1 


R1,R1,LOCKOUTPUT 
40$ 


"SSEp19be ba:fhie8 EDR 


M 
R.SREIVED 


SCTE rTererererererer 
F page ages Fy 
mmommnDoe 


buff 
e updated by the DHU/DHV 
mate the timeout value 
; We nang, Oe one 64 because these characters may be in the Transmit fifo 
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ENABLE TRANSMIT 


UTE TIMEOUT AN 
INTERUPT EXPECTED 
ART OUTPUT 


; COMPUTE TIMEOUT AND 
; SET INTERUPT EXPTECTEDD 


Vets 


mc 
& 
ua 
+O 


—— 
ee ee ee 


ESSE SS SS Se Se ee ee Oe oe ee ee ee ee ee ee eS ee 


WOOO] 0909 690009 09 09 C909 INI SSN SSD PDP DPD DPA DAD TTT ES BS BS BE 


BRI =§ DOOD NIA ANEW 29 OOD NAME WIN 9 OD NAME WI  O OO NA UNE WI OOO NAUE UW OOOn~I 


uw 
ad 


F 8 
vite” "SSEP=19B4 06:49:48 ETTORVR. SRESTFDRIVER.MAR;1 
. -SBTTL OUTPUT INTERRUPT SERVICE 
YFSINTOUT = DHU OUTPUT INTERRUPT SERVICE 
FUNCTIONAL DESCRIPTION: 


poly an baste IS ENTERED WHEN THE DH DS A shins —- 


Or 
IN 
A 
A 3 
A 3 
A 3 
A 3 
A 3 
A 3 U FIN 
A ; Y UART. THE CORRESPONDING UCB IS F N 
A ; ANY TSTANDING PORT ut T IS DONE. WHEN ALL OUTSTANDING PORT 
A : OUTPUT IS COMPLETED, THE CLASS DRIVER IS CALLED TO RETURN THE NEXT 
A ; CHARACTER OR STRIN e° TO BE OUTPUT. IF NO MORE OUTPUT IS FOUND, THEN 
A ; THE LINE IS DISABLED. 
A + INPUTS: 
A : SP(00) = ADDRESS OF THE IDB 
A : IMPLICIT INPUTS: 
A : RO,R1,R2,R3,R4,R5 SAVED ON THE STACK. 
A : OUTPUTS: 
A : THE INTERRUPT IS DISMISSED. 
A t<= 
A YF _OUT_EXIT: ; EXIT OUTPUT INTERRUPT 
BA ADDL  4#4,SP + REMOVE IDB ADDRESS 
MOV ($B)+..RO : RESTORE REGISTERS 
9 MOVa (SP)+-R ; 
9 MOVa (SP)+:R4 ; 
96 REI : DISMISS INTERRUPT 
44 YFSINTOUT:: ; DHU OUTPUT INTERRUPT SERVICE 
97 YF _OUT_LOOP: 
97 MOV.  a(SP),R4 : GET THE IDB ADDRESS 
OVL  (R4),RO : GET THE CSR ADDRESS 


GET THE LINE INFO FROM THE CSR 


MOVW = (RO), R2 : GET THE CSR VALUE 

BGEQ VF OUT_EXIT 

aon eae Ree wR gh : Get the Line number 

MOVL {p68 UeeLSTCRGDERII, RS ; GET THE UCB ADDRESS 

BEQL F_OUT_LOOP : IF EQL THEN DISMISS 

CHECK FOR BURST OR DMA ACTIVE ON LINE 

SETIND RO 

BITwW #DHULCTSA_ ABORT, DHULCT(RO) ; CHECK TO SEE IF ABORT IS SET 
BEQL ; EQUAL, ABORT NOT SET 
BICW Ph DHULCTSM ABORT , aL, LCT(RO) > CLEAR ABORT 

CMPB OM TTYSM_ TANK B ;= 3 ONLY BURST ACTIVE? 


UCBSW_TT git ) 
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YFORIVER - Port Dri for DHU/DHV 16-SEP=-1 74 AX/VMS Macr 60 v04-00 Page 35 
Youn O08 OUTPUT INTERRUPT SERVICE ety 7 ge #$: rh YT TDRVR. SRCJYFDRIVER.MAR; 1 - 
BEQL $140 : YES, CONTINUE SILO OUTPUT 
19 BlTw Hire M_TANK_PREMPT,= ; Preempt required ? 
1 presi TT_HOCD(RS) 
- BNEQ ; == BRW YF_PREEMPT 
; BITW  #TTYSM_TANK_DMA ; DMA ACTIVE? 
yeas. TT “HOLD (RS) 
BNEC ; YES, PROCESS IT. (== BRW YF_DMA_INTERRUPT) 


; NO PENDING DATA = LOOK FOR NEXT CHARACTER 
ios: BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
¢ CALL CLASS DRIVER FOR MORE OUTPUT 


—DOOODQODOOOCOOOO0O0O0O 
Sete te bbe Ge Ge 


FAR 9 OOD NA WE WIN | O ONAN WIN O OD NAN E  * OD ODNOUE 
s 


JSB @UCBS$L_TT GETNXTCRS) : GET THE NEXT CHARACTER 
BLSS YF_START_BUR + BURST SPECIFIED 
BEQL YF—OuT Loop 3 NONE 


; OUTPUT A CHARACTER TO THE DHU/DHV 


Res ees 
So 
aA 


0A 0134 C5 01 €0 BBS #UCBSV_DHU,UCBSB_DHUFLG(R5) ,30$ 
; Single char output to DHV 


BISW3 #*x8000,R3,DHUTXC(RO) 
BRW YF_OUT_LOOP 


: Fifo output to DHU 
$0s: 


02 A0 53 8000 4 Ag 
FF 


ANOOO DHPIMINVO OOOO POLLS FLOCOCOMAV NVM Zs 


SFE FE FF HH MITMIMMMMmmmmrmrmrnmrr mrirrrim ca OIOOOIINO —o 


06 A0 53 90 MOVB = R3,, DHUTXF (RO) 
BRW YF_OUT_LOOP 
BRW YF _PREEMPT 


BRwW YF_DMA_INTERRUPT 


Ww 
ow 
owen 


-_- = 
Ww 
wn 


eo 
> 
oO > o— 
a w =O 
oO oo 
o oo @oO 
P ty oO NOR? Wows 
wm Ww ou™m evrnnrv 
Sa a4 -—- wo -_— wa 
woe ny Ww Fw 
WOO OO 000000000960 00 00 00 G9 00 G0 09 G9 G9 G9 G9. G9 G9 CD 09 C9. G9.09. 00 G9. G9 G9. G0 G9. G9 00 000000 


YFORIVER - Port Driver for DHU/DHV 16-SEP-1984 :26:4 AX/VMS Macro V04-00 P 
Mirae ht OUTPUT INTERRUPT SERVICE g-8 sett yi 82:49:08 YTTORVR. SREIVFDRIVER-MAR: 1 ae 8, 
909 1 
; 1 $ YF_START_BURST: 
FB36 cf 1 1 Js BURST_OUTPUT ; START OUTPUT SILO OR DMA 
FFB? : BRW YF_OUT_LOOP 
4 ; CONTINUE SILO OUTPUT 
910 1543 YF_SILO 
910 1544; 
4} } ig : Note. THE DHV does not have SILO output 
09 0134 ¢S_ 01 1 091 47 BBC #UCBSV_DHU,UCBSB_DHUFLG(RS) , 5$ 
40 He 06 AQ + 91 i 4g CMPB OuUTFSTRO)- #66 - ; ANY SILO OUTPUT IN PROGRESS ? 
: 19 918 154 BNEQ 15 ; YES THEN LET IT COMPL 
ee 31D 20 BRB 20$ t OTHERWISE CONTINUE SILO OUTPUT 
9iF 1 ; DHV single char mode 
SIE 188z és 
110 DS) «oOA:sCOO9TF «1555 Ct” MOVZBL @UCBSL_TT_OUTADR(RS) ,R3 
02 AO 3 000 BF Ad 0924 1336 it aK BODO R3, DHUTXC (ROS 
16 CS 06 0928 1 INCL UCBSL_TT_OUTADR(RS) 
120 FE GRRE HRB BREE YEPMCTT-OUTEENERS) soy gy 
0800 8F AA 09 H 1560 BICW  #TTYSM_TANK BURST .~ + RESET BURST ACTIVE 
0108 C5 3 } 61 UCBSW_TT_HOCD(R5) 
FFS8) «31 «0931 rx 10$: BRW YF _OUT_LOOP 
98 1868 158: 
FOFS CF 06 93F 1 66 : INCL  YFSL_SIL_ERROR : INCREMENT ERROR COUNTER 
fF? 1 136 BRB 10$ : == BRW YF_OUT_LOOP 
1368 : DHU silo output 
1371 20S: 
51 06 AO 9A ! ie MOVZBL DHUTFS(RO),R1 3; number of slots 
52 0120 C5 3¢ 3 1574 MOVZWL UCBSW_TT_OUTLEN(RS) .Re : GET CURRENT LENGTH 
5 pric cS D 5 1575 MOVL  _UCBSL-TTIOUTADR(R5) RS; GET CURRENT ADDRESS 
1 é 81 2 CPW R RI ; BURST LARGER THAN SILO? 
52 5 9A 05 H g ios MOVZBL R1,R2 > MAXIMUM 
ort C5 5 co 09 1 "ADDL sR -UCBSL_TT_OUTADR(R5) : UPDATE POINTER 
120 ¢ A2 0960 1 SUBW © R2,UCBSW-TT-OUTLEN(R5) ; AND COUNT 
0 1 965 1 : BNEQ 608 : NOT DONE 
9800 F AA 0967 1 BiCw #TTYSM_TANK BURST .~ + RESET BURST ACTIVE 
1 5 968 1584 UCB$W_TT_HOCD(R5) 
05 96E 1585 60S TSTL sR : ANY ROOM AT ALL 
A BEQL «0S + NO THEN EXIT 
08 9 1 : BLBC ~=—_-«R2, 708 : EVEN TRANSFER 
06 AO 1 MOVE (R$) +, DHUTXF (RO) : OUTPUT ODD BYTE 
: 1 DECL Re + UPDATE COUNT 
F BEQL 808 > DONE 


1 8 
r "SSEp=198e SE:4R:G3 ET TORVA. SReSteDRiven.man:1 "9% 3, 


Vetus 


or HU/DH 
SERVICE 


S— 


ouTeut Inte 


YF _DMA_INTERRUPT: 


r 
R 
S252 FF BF 78 (O97 a ASHL = #=1, RZ, R2 ; CONVERT TO WORD COUNT 
06 AO «683—B0 ; ROY (R3)+, DHUTXF (RO) i cin teal teak coameel 
F652. FS ? SOBGTR R2,75$ + LOOP TILL DONE 
FFOB = 31 c 80$: BRW YF_OUT_LOOP 
F YF_PREEMPT: 
0108 ; 0100 BF AA F BICW  #TTYSM_TANK_PREMPT, UCBSW_TT_HOLD(RS) ; CLEAR PREEMPT BIT 
l A cs 9A MOVZBL Ucese TT_PREMPT(RSS,R3 ;~GET CHARACTER 
09 0134 ¢ 1 £0 +4] BBS #UCBS$0_DAU,UCB$B_DHUFLG(RS) , 10$ 
D9A1 : DHV single cha 
02 AO 53 8000 BF AP 09a BY sus #°X8000,R3,DHUTXC(ROD 
A ae d9A8 6 BRB 208 
D9AA 4 : DHU FIFO output 
IAA 1812 fos: 
06 A0 53 90 DAA é on MOVB  R3,DHUTYF (RO) 
FEE6 31 O9A 6 "  BRW YF _OUT_LOOP 
& 
6 
é 


a A a tt 


; CHECK TO MAKE SURE NO DATA IS PENDING BEFORE ASKING FOR MORE 


0981 16 
fEE2 CF ODE 6 PUSHAL YF_OUT LOOP ; BUILD RETURN ADDRESS ON STACK 
04 52 OC £1 0985 16 BBC #ORUCSRSV_DMAERR,R2,5$ : CHECK FOR A DMA 
F683 CF 6 0989 6 - INCL YF SL_DMAXAT_ERROR + ERROR OCCURED INCREMENT COUNTS 
‘ H 
06 93 09BD 16 BITB #TTYSM_TP_ALLOC!TTYSM_TP_DLLOC,- ;CHECK FOR FORKS ACTIVE 
0130 C3 def 6 onal CBSB_TP_STAT(RS) | AND IGNORE IF SO 
0130 cS 00 8 +34 é BBS #TTYSV_TP_ABORT, UCBS$B_TP_STAT(RS),- 
1 C9 s"ABORT ACTIVE DMA 
0c AO «(95 «(O9CA TSTB HUTBF 2(RO) : ANY DMA IN PROGRESS ? 
1 1 D9CD BLSS : YES, then let it complete 
OE A 2 DOCF 16) TST HUTCT(RO) : TESf DMA BYTE COUNT 
06 902 6 BEQL : DMA BYTE COUNT DONE 
F664 CF 06 904 16 INCL YF SL_ERROR : 
1 0908 ies BRB 20$ + NO THEN CONTINUE 
‘ : 
OE AO 8 D9DA CLRW = DHUTCT(RO) : CLEAR DMA BYTE COUNT (ABORT WAS CLEARED) 
FB7D «631—«09D BRW DMA_CONT INUE : OTHERWISE, CONTINUE THE DMA 
4 ; IF THIS INTERRUPT WAS THE RESULT 
+ OF AN ABORT, THIS WILL BE HANDLED 
4 > BY DMA_CONTINUE 
oe 208: 
4 RSB 


os 
a ae th ak th a at a os bo —) 4 — 2 2s = 2 a ds a a at 2 ts td tt tt 


rss 


OO NIDP- DENI 9D OO IA NE AN SOO NIA NE WIN SO OO NA AEN OO OD NOAUNE UW  O OONAUSW 


F653 ff 33 INCL YFSL_SIL_ERROR 
5E 4 C #4, SP 


; Pop off return address 


18 
OUTPUT INTERRUPT SERVICE. "SrREb=13R4 8:99:28 UNORUR.SeeaveoRiver.mar;1 “2% 38, 
FEAC 31 Q9EB 1650 BRW —-YF_OUT_LOOP 


k 8 
1 PARAMETERS "SSEp=1986 BE:49:28 EVToRUR.Saeavroniver.man:1 "2° 7%) 


-SBTTL SET SPEED, PARITY PARAMETERS 


Vetus 


p++ 
YFSSET_LINE = RESET SPEED, PARITY 
; FUNCTIONAL DESCRIPTION: 


; INPUTS: 
: RS = UCB ADDRESS 
; OUTPUTS: 
: R4 USED 
YFSSET_LINE: 
o¢ PUS aenc eh3? 
54 264A MOVL ucpat¢ ADDRESS CRB 
54 aC B4 HOVE acresc_ TRIDeVECSL. 1DB(R4S.R : GET THE CSR ADDRESS VIA CRB 
52 08 AO MOVZWL DHULCT(RO),R2 : Fetch the Line control reg 


The DHU/DHV have automatic detection of received XON/XOFF and also 
automatic generation of XON/XOFF options 


BBC #TTYSV_PC_XOFAVL,UCBSW_TT_PRTCTL(RS) 4%; AUTOXON XOFF AVAILABLE ON T 
; YES THEN IS 


14 0122 ¢5) (05 


; Assume that both modes are required 


BISW OOIA.CTSN OAUTO ! bia CTSA. IAUTO>,=- 
R2z Assume AUTOXOFF 


: : Disable detection of received XON/XOFF if not allowed 


03 0122 c5 06 BBS #TTYSV_PC_XOFENA ycasy_ TT -PRICTL(RS), 2$; AUTOXON XOFF ENABLED 
2 0 a BICw  #DHULCTSM-OAUTO.R ; THEN CLEAR THE AUTOXOFF ENABLE 
: Disable sending of XON/XOFF is hostsync is not s 
3; (The DHU/DHV can send XON/XOFF automatically it” the receive fifo fills up) 
03 44 AS 04 ‘ BBS #TTSV HOSTSYNC ,UCBSL_DEVDEPEND(RS) ,4$; Host sync specified ? 
52 10 BICW #DHULCT _IAUTO,R ; No, then clear enable flag 
100 af 4$: BICW $ #DHULCTSM_MODEM,R 
05 44 a5. 15 BBC #TT$V_MODEM CBS; _DEVDEPEND(RS) , 6$ 
0100 8F BISW PDHULETSA “MODEM,R2 
; move updated register back into device 
08 AO 52 és: MOVW R2 DHULCT (RO) 
E CLRL Os = (SP) ; RESET A TEMPORARY LOCATION 


s pts Bt 
6E 60000040 F 
Smt oe 
04 AO 

04 AO 

5E 


EXTV #UCBSV_TT PARTY 96 UERSO TT -PARITYIRS) WAS ; GET PARITY/ODD 


om 


onmnem 
Stowe “am 
wuroww,— om oom om 
>> 
on 


INSV R -#OHOLPRSV PARITY, # 


XORL #DHULPRSM_ODB, (SP) ; Correct sense 


G 
R, 
R 
S' 


EXTV #UCBSV Te ag ror oi .Ucese TT_PARITY(RS) ,R3 ; GET STOP 


y 


INSV  R3,#DHOLPRSV_SfOP.A1, (SP) 


7 

i 

7 

4 § oy 50) -DORULPRCRO) : a nest itcattons te be made? 
3 u 

7 § CVTILW (SP) ,DHULPR(RO) H INSERT AS LINE PARAMETER 

7 ? AD a4 P 3 

; ; . 

ei 

765 

766 


ae 
mMMOwn 


30$: ; Restore sta 


P 
pee #*A<R2,R3> ; Restore registers 


233d 
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Mia ti SET SPEED, PARITY PARAMETERS §-§ sats 92:99:48 YT TORVR. SREIVFDRIVER.MAR: 1 ” (1) 
} ‘ SET UP LINE SPEED AND PARITY 
A 171 
00FS £3 3 “ i ' ! gers eae ahead 3 eecelve SPEED SPECIFIED? 
OOF 4 C3 90 OA3D 1 18 UCBSW_TT_SPEED(RS),- |: NO, SO USE TRANSMITTER SPEED 
F5 ¢ Ad} 1 = UCBSW-TT-SPEED+1 (R5) 
F4 ¢ 9A QASG 171 MOVZBL UCBSW_TT_SPEED(RS),R3 3; Get TRANSMIT SPEED 
53 68 tres 90 0A49 17) MOVE = YF VMS. SPEEDSERSS AG 
1 1 AGF 1 BLSS 19s i Illegal speed 
6E 4 5 F AS1 1 INSV R35, #DHULPRSV rsreeD #4,(SP) ; SET TRANSMIT SPEED 
FS i 3A A561 MOVZBL UC6$W_T SPEEDS 1(R S$ 
53 F625 CF A 17 MOVB YF vMS_SPEEDS R3),R3 
1 A61 1724 BLSS 10$ 3 ih Legal speed 
6E 046 08 3 FO OA 1725 INSV R35, #DHULPRSV_RSPEED ,#4, (SP) ; SET RECEIVE SPEED 
, .te 17 § BRB 20$ 3; set current speed 
AGA 17 
Mea 1758 oe 
AGA 1750 ; This code restores the speed to its previous value 
“ rn Ve 1; !% is entered when an illegal speed combination is detected. 
53 04 49 BO OA6A 17 : MOVW DHULPR(RO),R3 3 get Line parameters 
6E 23 8? BAS Ve : oye it ale 3 use previous speed as new 
53 53 C4 § F A7 17 § EXTZV #DHULPRSV rsPeee #4,R3,R3 3 extract speed 
ONF4 CS F618 CF4 0 M4 7 MOVB YFSDHU_SPEEDSCR3,UCBSW_TT_SPEED(R5); convert to VMS value 
53 04 A0 60 OA 8 17 § MOVW DHULPR(RO) ,R3 3; get Line parameters 
53 5304 08 F OAB4 1740 EXTZV  #DHULPRSV RSPEED #4 ,R3,R3 : extract speed 
OoF5 cS F607 CF4 0 aay 1741 MOVE § YFSDHU_SPEEDSCR34,UCBSW_TT_SPEED+1(R5); convert to VMS value 
3 insert other parameters in the new LPR value 
A91 1508 i h i h PR l 
A91 1744: 
Aa! een 08s 
53 oOOoF8 C5 4 9 E A91 1525 EXTV eycesy TT_LEN, #2 use TT_PARITY(R5S) ,R3 ; GET CHAR SIZE 
6 62 0 FO 0A98 1768 INSV R3,#DHOLPRSV_SIZE,A2, (SP) : SET IT 
1750 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


YFSEND: 3; end of driver 


YFOR 
v04- 


06" 


- Port Driver for DH! 
SET SPEED, PARITY BRRAREYERS 


OACC 1767 ~END 


"BSED 1SBe BE:F9:28 EetonUR. SReS 


04 
Ri 


-00 
VER.MAR; 1 


roe Hh 


LGI! 
L1B! 
Liss 
L1B! 
L186! 
L1B! 
Lis! 
LIB! 
L18! 
Lis! 
LIB! 
L168! 
L1B! 
LIBS 
LIBS 
LIB 
ul 
ul 


— 4 24 


ase 
Pn 4h dd 
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Symbol table ety 7 82:99:48 YT TORVR. SREIVEDRIVER. MAR: 1 ° tf) 
$$$ = R 02 DHULCTSM_MAINT = 0 
$$OP = DHULCT$M~MODEM z 
AT$_UBA . DHULCTSM"OAUTO = 
oe = DHULCTSM-RCV = 
BUG$ UNSUPRTCPU eeeenere =X 03 DHULCTSM-RTS = 
BURST_OUTPUT 443 R DHULCTS$M~ SNDOFF = 
CLASS_DDT = 1 DHULCT$S- ABORT = 
EAS = Ss8iHe BEE BM = $s 
= = 
CLASS~GE TNX = 6 DHULCT$S~IAUTO = 1 
CLASS POWERF AIL = DHULCTSS MAINT - 3 
CLASS~PUTNX = 4 DHULCT$S-MODEM = 
CLASS -READERROR = 4 DHULCT$S~OAUTO = 1 
HAs“ = SRE BETA = Sse 
= = 
CRBSL-INTD 2 09 4 DHULCT$S~ SNDOFF = 6 01 
CRBSL~INTD2 = 0000 4g DHULCTSV-ABORT s 09 
DC$_ TERM = 999 4 DHULCTSV“BREAK = 00000 0 
DDBSL_DDT = 00 0 ¢ DHULCT$V=DTR = 0 0 9 
EVSM_AV = 0004 DHULCT$V~IAUTO = 04 
DEVSM~CCL = 000000 DHULCTSV“MAINT = 000 06 
DEVSM~1DV = 04 00 DHULCTSV-MODEM = 6 00 
EVSM_NNM = 00 DHULCT$V~OAUTO = 001 
DEVSM_OD 2 80 0 00 HULCTSV-RCV = 00000002 
DEVSM~REC = 00000001 DHULCTSV-RT = 00 900 : 
DEVSA_TRA = 99000004 DHULCTSV_SNDOFF 2 00 sa08% 
= = 
DHUCSRSC_BASE = 0904040 DHULPRSM_DIAG1 = 0000 002 
DHUCSRSM—CLEA = 00 9 DHULPRSM_DIAG2 = 00000004 
DHUCSRSM_DIGFAL = 00002000 DHULPRSM_ODD = 00000040 
DHUCSRSM_ = 00001000 DHULPRSM_PARITY = 0 02 
DHUCSRSM~IADDR = 0000000F DHULPRSM_RSPEED = 00000F 
DHUCSRSM = 00000F0 DHULPRSM_SIZE = 00 0 01 
DHUCSRSM_RCVINT = 0000 04 DHULPRSM~STOP = 00 0080 
anata = $39399 BEE pa = $33sse 
= = 
sare Sten : Hesse Baa -Be : HaSSaH 
= = 
CSR$S~DMAE = 86 8 1 DHULPRSS_ PARITY = 090 $4 
SRUESRSS LINE = 00 ° d PHULPRSSTSi7E = 90000003 
= = 
DHUCSRSS_RCVINT = 1 DHULPRSS_ STOP = 8 01 
DHUCSRSS_SNDINT = 1 DHULPRSS"TSPEED e 004 
anima = $8884 BPE AGS = B88 
DHUCSRSV~DIGFAL 2 D DHULPRSV~ODD = é 
DHUCSR$V~DMAER = DHULPRSV"PARITY - 
RUeEREN ieee ; DHULPREVTS ITE ; ; 
= 
DHUCSREV-RCVINT = DHULPRSV~STOP = 
DHUCSRSV~SNDINT = E DHULPRSV-TSPEED = § 
+t peleiaeaaiald - 3 DHUREUSM_ BUF ; Ff 
= 
DHULCTS$M_ ABORT = DHURCVSA_FRAMER - 
prep BUYER bE = BE8h 
HUL = ® 
DHULCT$M~ 1 AUTO = DHURCVSM~PARERR = 19 
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Symbol table eset 7 §2:99:48 YTTORVR. SREIVFDRIVER.MAR: 1 . (1) 
DHURCVSM_VALID = 9 DPTSC_LENGTH = 38 
DHURCVSS_ = DPT$C_ VERSION = F 
DHURCVSS_FRAMER = 1 DPTSIRNITAB 8R 02 
DHURCV$S_LIN = 4 DPT$M_NOUNLOAD = 04 
DHURCV$S_OVERRUN = 1 DPTSREINITAB D3 R 08 
DHURCV3S_PARERR = 1 DPTSTAB 0 00 R 
DHURCVS$S_VALID = 1 DPT$W_VECTOR = 00 16 
DHURCVSV_ = 0 DT$_DAU = 0 4 
DHURCVSV_FRAMER = D DT$-DHV = 4g 
DHURCVSV_ = 00008 DYNSC_CRB = 0000 38 
DHURCV$V_OVERRUN = OOE DYNSC_DDB 2 3008 06 
DHURCVSV_PARER = of DYNSC_DPT = 8 93 
DHURCVSV_VALID = 00 DYNSC_ORB * 3 04 
DHUSPD$C_BAUD_110 = 4444 BS DYNSC_UCB = 00000010 
DHUSPD$C_BAUD_1200 = 0000000 EXESGB_CPUTYPE eeeeeeee =X 03 
DHUSPD$C_BAUD__ 134 = 0000 383 EXESGL_ABSTIM aeeeeeee = X 03 
DHUSPD$C_BAUD_150 = 00000004 EXESGL_TENUSEC aeeeeeee =X | 03 
HUSPD$C_BAUD_ 1800 = 00000008 EXESGL_UBDELAY weeeeeeer = =X 8 035 
DHUSPDS$C_BAUD_19200 = 0000000E FUNCTAB_LEN = 00000000 
DKUSPDS$C_BAUD_ 2000 = SH IDB$L_UCBLST = 444 8h 
DHUSPD$C_BAUD_ 2400 = Q000000A INIT. CONTINUE 0 b0638 R 03 
HUSPD$C_BAUD_ 300 = 00000005 IOSM_AUTXOF _DIS = 00004000 
DHUSPD$C_BAUD_ 38400 = 0000000F IOSM_AUTXOF ENA = 00002000 
DHUSPDS$C_BAUD_4800 = 00000008 IOSM_LINE_ = 00000200 
DHUSPD$C_BAUD_ = 00000000 IO$M_LINE_ON = 00000800 
DHUSPD$C_BAUD_600 = 00000006 10$M_LOOP = 00000080 
DHUSPD$C_BAUD_7200 = 0000000C 10$M_UNLOOP = 00000100 
DHUSPD$C_BAUD_ 75 = 00000001 IOCSALOUBAMAPN eeeeeeee = X 03 
DHUSPD$C_BAUD_9600 = 0000000D IOCSMNTVER aeeeeeee = =6X | 05 
DHUSTT = 00000007 IOCSRELMAPREG weeeeeee =X 03 
DHUSTTSM_CTS = 00000008 IOCSRETURN aeeeeeee YX 03 
DHUSTT$M_D = 00000010 MMGSGL_SPTBASE aeeeeeee X 03 
DHUSTTSM_DSR = 00000080 MODEMSC_DATASET = 00000003 
DHUSTTSM_R = st 3 MODEMSC_INIT = 44 44 44 
DHUSTT$S_CTS = 00000001 ORES$B_FCAGS = 00000008 
HUSTT$S_DCD = 00000001 ORBS$L_OWNER = 00000000 
HUSTT$S_DSR = 00000001 ORBSM_PROT_16 = 00000001 
DHUSTT$S_RI = 444444 ORBSW_ PROT = BeO bon ep 
DHUSTT$V~CTS = 0000 005 RT_ABORT = 99909 0 
DHUST/$V_DCD = 0 8 4 “0S_S = 0000000C 
HUSTT$V_DSR = 38 7 PORT_FORKRET s 98008 4 
DHUSTTS$V_RI = 00000005 PORT_LENG = 00000038 
DHUTBF 1 = 000 A PORT_MAI = 00000030 
DHUTBF 2 z 8 § PORT_RESUME = 98 Oe 
DHUTCR = PORT_SET_LINE = 8 
DHUTCT = 00000 PORT_STARTIO = 8 $808 
DHUTFS = PORT_STOP = 00 300) 
DHUTXC = PORT_VECTOR 0 eb R 03 
DHUTXF = PORT _XOFF = 00000014 
DMA_ALLOC R PORT~XON = 000 19 
DMA_CONT INUE g e PRS$_TPL z 1 
DMA_DEALLOC 0 E8 R PR$-SID_TYP780 2 01 
“DONE oe R $1,0_ouTPur 4 9 R 03 
DMA_NOMAP 7D R SS$_NORMAL 2 1 
DMA_POST 08 R TTSE_BAUD_110 = 3 
DMA_START 4F1 R TT$C_BAUD—1200 zs 


C 
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TT$C_BAUD_134 = 4 UCB$B_TT_DS_RCV = 124 
TT$C~BAUD-150 = 5 UCB$B_TT_DS_TX z 125 
TT$C_BAUD_ 1800 = 8 UCBS$B_TT_MAINT = 12A 
TT$C-BAUD-19200 = UCB$B_TT_PARITY = OF8 
TT$C_BAUD_ 2000 = OA UCB$B_TT_PREMPT = 10A 
TT$C_BAUD_ 2400 = B UCBSC_TT_ LENGTH = 134 
TT$C_BAUD_ 5300 = 8 6 UCBSL_CRB = 4 
TT$C_BAUD_ 4800 = 000 3 UCBS$L_DDB = | 
TTC BAUD 690 = 88 UCBS$L_DDT = 
TT$C_BAUD_ = 0 2 UCBSL_DEVCHAR = 8 33 8 
TT$C_BAUD- 9600 = 0000000F UCBSL_DEVCHAR2 = 0000003C 
TT$M_DS_CARRI R = UCBSL_DEVDEPEND = 8 44 
TTSM_DS_CTS = UCBSL_DEVDEPND2 = 48 
TTSM_DS_RING = 00 oF 4 UCBSL_DUETIM = 00 gt 
TT$V_DS_DSR = 00000007 UCBSL_TP_MAP = 4 12C 
TT$V_HOSTSYNC = 00000004 UCBSL_TT_CLASS = 00000114 
TTS$V_MODEM = 00000015 UCBSL_TT_DECHA1 = 000000C8 
TT$_ONKNOWN = 00000000 UCB$L_TT_DECHAR = Sony he 
TTYSGB_DEF SPEED teeeeeee =X 0 UCBS$L_TT_GETNXT = 0000010C 
TTY$GB_PARITY aeeetane =X 0 UCB$L_TT-OUTADR = 0000011C 
TTY$GB_RSPEED teeeeeee KX 0 UCBSL_TT_PORT = 00000118 
TTY$GB_SILOTIME keeeteee x Q UCBSL_TT_PUTNXT = 00000110 
TTYSGL_DEF CHAR teeeeeee X 0 UCBSL_TT_RTIMOU = 00000084 
TTYSGL_DEF CHAR2 teeeeeee = X 0 UCBSL_TT“WBLINK = 00000000 
TTYSGL_DPT gkrekeee x 0 UCBSL_TT_WFLINK = a 
TTYSGL_OWNUIC eekkeeee x 02 UCBSM_DHO = 444 4 
TTYSGW_DEF BUF rktkeene x 8 UCBSM_INT = 0000000 
TTYSGW_DMASIZE keekenee x 0 CBSM_MAP = 00000001 
TTY$GW_PROT keekkeee a. Og UCBSM_ONLINE = 00000010 
TTYSM_PC_DMAAVL = 00000004 UCBSM_TI = 444449 

_PC_MAPAVL = 00000010 UCBSM_XOFF = 444 4 
TTYSM_PC_XOFAVL = sia 4 4'f 3 UCB$S_DHU = 00000001 
TTYSM_TANK_BURST = 00000800 UCB$S_MAP = 00000001 
TTYSM_TANK_ = 00001000 UCBS$S_XOFF = 00000001 
TTYSM_TANK_PREMPT = SOOO HOOT UCBSV_DHU = 00000001 
TTYSM_TP_ABO = 00000001 UCBSV_INT z ssh 
TTYSM_TP_ALLOC = 44 h3 UCBSV_MAP = 44h 0 
TT _1P_DLLOC = 4444's UCBSV_ONLINE = 00000004 
TTYS$SV_PC_DMAENA = 44 1 UCBSV_POW = Soo fone 
TTY$V_PC_MAPAVL = 00000004 UCB$V_TT_DSBL z 6 00007 
TTY$SV_PC_NOTIME = 0000000 UCBSV_TT_LE = 00000003 
TTY$V_PC_PRMMAP = 00 UCB$V_TT_PARTY = 4d 
TTY$V_PC_XOF AVL = UCBS$V_TT-STOP = 90 
TTY$V_PC"XOFENA = 8 6 UCBSV_XOFF = $ $ 9 
TTY$SV~TARK = 08 UCB$W_DEVBUF S1Z = 04 
TTY$SV_TP_ r 3 0 UCBSW_STS = 0064 
TTY$V_TP_ALLOC = 00001 UCBSW_TT_DESIZE = QQ0000F 1 
TTYS$SV_TP_DLLOC = UCBSW_TT_DESPEE = 000000 
UBASL_MAP = UCB$W-TT-HOLD 2 1 
UCB$B_DEVCLASS = 4 UCBS$W-TT_OUTLEN = 1 
UCBSB_DEVTYPE = 4 UCBSW_TT_PRTCTL = 1 
UCB$B_DHUFLG = 134 UCBSW_TT_SPEED = OF4 
UCB$B_DIPL = Bae UCB$W_TT_UNITBIT = 496 
UCB$B_F IPL = 53 UCBSW_UNTT = 4 
YeBRe-T Taser = $s Veet 10 = Seeeund 
UCB$6-TT—~DETYPE = 0000 OFS VECSL-INITIAL = 0000 $f 
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VECSL_UNITINIT 
VEC$S_~MAPREG 
VECSV"MAPREG 
VECS$W"MAPREG 
YFSABORT 
YFSCTRL_ERROR 
YFSDDT 
YFSDELIVER 
VESDHU_SPEEDS 


YFSINTOUT 
YFSL_DMAXMT_ERROR 
YFSL-ERROR 

VESLTINACT ERROR 


YFSL_-SIL_ERRO 
YFSMAINT 

YF SNULL 
YFSPREEMPT 

YF SRESUME 
YFSSET_LINE 
YFSSTARTIO 
YFSSTOP 
YFSUNIT_ERROR 
YFSVEC 
YFSVECEND 
YFSVMS_SPEEDS 
YFSXOFF 
YFSXON 

YF _DMA_INTERRUPT 
YF INITMAP 
YF_OUT_EXIT 
YF-OUT LOOP 

YF PREEMPT 
YF-SILO 
YF-START_BURST 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 3 04 :00: 9.19 
Command processing 1 700.39 700: +1 
Pass 754 :00:23. $ :00:27. § 
Symbol table sort Cc :00:03. :00:03.4 
Pass 2 296 7:00:04. :00: oe 
Symbol table output 4G :00:00. :00:00.4 
Psect synopsis output 0:00:00. 8: :00.01 
Cross-reference output 8: 3: : 8 :00:00. 8 
Assembler run totals 125 2:00:32. 00:00:38. 


The working set Limit was 2550 pages. 

198247 bytes (388 pages) of virtual memory were used to buffer the intermediate code; 

There were 170 pages of symbol table space allocated to hold 3101 non-local and 128 local symbols. 
1767 source Lines were read in Pass 1, producing 4 object records in Pass 2. 

80 pages of virtual memory were used to define 74 macros. 
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! 
Poaonmanee soe ee ses een ee mse annawes + 


Macro Library name Macros defined 
Stitt F SYS.OBJJLIB.MLB; 1 35 
$255$DUA28: (SYSLIBJSTARLET.MLB; 2 12 
TOTALS (all Libraries) 47 


3572 GETS were required to define 47 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: YFDRIVER/OBJ=OBJ$:YFDRIVER MSRC$: YFDRIVER/UPDATE=(ENHS: YF DRIVER) +EXECMLS$/LIB 
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